unit Base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, XPMan,CustomMsgBox, StdCtrls, ToolWin, ExtCtrls;

type
//clase que tiene el objeto provincia
  TProvincia = class(TObject)
    codigo: integer;
    descripcion:string;
  end;

  //clase que tiene el objeto localidad
  TLocalidad = class(TObject)
    codigo:integer;
    codigoProvincia:integer;
    descripcion:string;
  end;

  //clase que tiene el objeto condicion de IVA
  TCondicionIva = class(TObject)
    codigo:integer;
    descripcion:string;
  end;

  //clase que tiene el objeto telefono
  TTelefono = class(TObject)
    codigo:integer;
    numero:string;
    edicion:integer;
  end;

  //clase que tiene el objeto cliente
  TCliente=class(TObject)
    codigo:integer;
    nombre:string;
    apellido:string;
  end;

  TfrmBase = class(TForm)
    StatusBar1: TStatusBar;
    XPManifest1: TXPManifest;
    ToolBar1: TToolBar;
    Timer1: TTimer;
    procedure LimpiarForm();
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBase: TfrmBase;

implementation

{$R *.dfm}

procedure TfrmBase.LimpiarForm;
var i:integer;
begin
  //UN PROCEDIMIENTO QUE LIMPIA LOS EDITS
  for i:=0 to ComponentCount - 1 do
    begin
      if Components[i] is TEdit then
        begin
          TEdit(Components[i]).Text:='';
        end;
    end;
end;

procedure TfrmBase.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:=DateToStr(Now);
  StatusBar1.Panels[1].Text:=TimeToStr(Now);
end;

procedure TfrmBase.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:=DateToStr(Now);
  StatusBar1.Panels[1].Text:=TimeToStr(Now);
end;

end.
